(mod): Use cl-floor.

(rem): Use cl-truncate.

diff --git a/lisp/cl.el b/lisp/cl.el
index 0e648633a52d93efa39e8750c0e66b2002e3053b..e4777ef37941f47313145d53497c4a2a8a5ca6af 100644 (file)
--- a/lisp/cl.el
+++ b/lisp/cl.el
@@ -1806,18 +1806,18 @@ DIVISOR defaults to 1.  The remainder is produced as a second value."
 
 (defun mod (number divisor)
   "Return remainder of X by Y (rounding quotient toward minus infinity).
-That is, the remainder goes with the quotient produced by `floor'.
+That is, the remainder goes with the quotient produced by `cl-floor'.
 Emacs Lisp hint:
 If you know that both arguments are positive, use `%' instead for speed."
-  (floor number divisor)
+  (cl-floor number divisor)
   (cadr *mvalues-values*))
 
 (defun rem (number divisor)
   "Return remainder of X by Y (rounding quotient toward zero).
-That is, the remainder goes with the quotient produced by `truncate'.
+That is, the remainder goes with the quotient produced by `cl-truncate'.
 Emacs Lisp hint:
 If you know that both arguments are positive, use `%' instead for speed."
-  (truncate number divisor)
+  (cl-truncate number divisor)
   (cadr *mvalues-values*))
 \f
 ;;; internal utilities